home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
M-More Monthly Disks
/
(c)m4.d64
/
forest walk.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
8KB
|
225 lines
10 POKE53280,1:POKE53281,1:PRINT"[147][144]":PRINTTAB(15)"HIKE":GOTO20: BY W.I.M.
20 PRINT:PRINT:PRINT"HELLO THERE! YOU ARE ABOUT TO GO"
21 PRINT" FOR A WALK IN THE FOREST EQUIPPED"
25 PRINT" WITH YOUR TRUSTY RIFLE & SOME"
30 PRINT" BOLOGNA SANDWICHES."
35 PRINT:PRINT"TO COMPLETE YOUR HIKE YOU MUST CHOSE"
36 PRINT" THE CORRECT COURSE OF ACTION FOR EACH"
37 PRINT" ANIMAL (THING) THAT CROSSES YOUR PATH"
38 PRINT" AND GO 20 MILES TO WIN. YOU CAN"
39 PRINT" ONLY MAKE 3 MISTAKES."
40 PRINT:PRINT"THE WOODS ARE DARK AND VISION IS"
41 PRINT" POOR, MAKE YOUR SELECTION WITH CARE"
42 PRINT" GOOD LUCK (YOU'LL NEED IT) HAVE A GOOD TIME....."
85 PRINT:INPUT"PLEASE ENTER YOUR NAME ";NA$
89 MI=0:M=0
90 PRINT"[147]WHAT A PEACEFUL DAY....EXCEPT"
91 PRINT" FOR THAT TWIG THAT JUST SNAPPED!"
92 PRINT" THERE'S AN ANIMAL. DO YOU WANT TO..."
95 PRINT" (1)SHOOT IT?":PRINT" (2)PET IT?":PRINT" (3)FEED IT?"
100 PRINT
120 GET C$
121 IF C$="1"OR C$="2" THEN 130
122 IF C$<>"3" THEN120
130 R=1+(INT(20*RND(TI*10000)))
190 IF R>10THEN GOTO210
200 ON R GOTO 270,430,540,660,770,890,1020,1100,1200,1300
210 ON R-10 GOTO 1400,1500,1600,1700,1800,1900,2000,2100,2200,2300
270 REM*LION*
290 IF C$<>"1"THEN340
300 PRINT"HURRY!! YOU JUST SHOT A LION!"
305 PRINT" A NEW RUG FOR THE DEN....."
310 PRINT" FINISH YOUR WALK & HAVE A GOOD TIME":GOTO10300
340 IFC$<>"2"THEN380
350 PRINT"LIONS DON'T TAKE KINDLY TO BEING PETTED."
360 PRINT"[145] HOPE YOU HAD LIFE INSURANCE....":GOTO10700
380 PRINT"YOU JUST FED A LION. HOWEVER, HE ALSO"
390 PRINT" MADE A MEAL OUT OF YOU. BYE,BYE...":GOTO10700
430 IF C$<>"1"THEN470
440 PRINT"YOU JERK - YOU JUST SHOT A HORSE."
450 PRINT" TURN YOURSELF IN TO THE RANGER.":GOTO10700
470 IF C$<>"2"THEN510
480 PRINT"YOU JUST PETTED A HORSE. YOU GOT OFF"
490 PRINT" EASY THIS TIME....CONTINUE YOUR WALK.":GOTO10300
510 PRINT"THE HORSE YOU JUST FED IS APPRECIATIVE"
520 PRINT" AND WILL TAKE YOU FOR A RIDE....":GOTO10300
540 REM*RANGER*
560 IFC$<>"1"THEN600
570 PRINT"YOU JUST SHOT THE PARK RANGER."
580 PRINT" BETTER HEAD FOR THE BORDER!":GOTO10700
600 IF C$<>"2"THEN630
610 PRINT"YOU PETTED THE RANGER."
615 PRINT" HE THINKS YOUR WEIRD!!!":GOTO10300
630 PRINT"YOU JUST SHARED YOUR BOLOGNA SANDWICHES"
640 PRINT" WITH THE RANGER. WHAT A GOOD SAMARITAN.":GOTO10300
660 REM*DEER*
680 IFC$<>"1"THEN710
690 PRINT"YOU JUST SHOT A DEER. THEY'ER OUT OF"
691 PRINT" SEASON YOU KNOW. GET OUT QUICK...":GOTO10700
710 IFC$<>"2"THEN750
720 PRINT"YOU JUST PETTED A DEER. NICE GOING."
730 PRINT" IT'S NOT EVERY DAY YOU GET"
731 PRINT" THAT OPPORTUNITY.":GOTO10300
750 PRINT"YOU JUST FED A DEER. I NEVER"
751 PRINT" KNEW THEY LIKED BOLOGNA....":GOTO10300
770 REM*MOUSE*
790 IF C$<>"1"THEN830
800 PRINT"YOU JUST SHOT A MOUSE. DON'T YOU"
810 PRINT" FEEL LIKE AN IDIOT ?":GOTO10300
830 IF C$<>"2"THEN870
840 PRINT"YOU JUST PETTED A MOUSE. DID YOU KNOW"
850 PRINT" THAT THEY CARRY 32 COMMUNICABLE"
851 PRINT" DISEASES?":GOTO10300
870 PRINT"YOU JUST FED A MOUSE. BOY, ARE YOU"
871 PRINT" EVER A SOFT TOUCH....":GOTO10300
890 REM*CAT*
910 IF C$<>"1"THEN950
920 PRINT"YOU CREEP!!! SHOOTING CATS SHOULD"
921 PRINT" BE AGAINST THE LAW...."
930 PRINT" GET OFF OUT OF THE PARK!":GOTO10700
950 IF C$<>"2"THEN990
960 PRINT"THE CAT YOU PETTED IS NOW YOURS."
970 PRINT" TAKE HIM HOME & GIVE HIM SOME MILK.":GOTO10700
990 PRINT"IT'S A GOOD THING YOU FED THAT CAT."
1000 PRINT" MICE ARE GETTING PRETTY SCARCE.":GOTO10300
1020 IFC$<>"1"THEN1030:REM*BEAR
1021 PRINT"THAT BEAR HAS BEEN BOTHERING THE"
1022 PRINT" TOURISTS, NICE SHOT, ENJOY YOUR WALK.":GOTO10300
1030 IFC$<>"2"THEN1040
1031 PRINT"YOU PETTED A BEAR??!?!?"
1032 PRINT" WHAT A TOUCH, KEEP WALKING...":GOTO10300
1040 PRINT"YOU THINK YOU CAN DO ANYTHING
1042 [153]" TO A BEAR...BYE BYE....":[137]10700
1100 [139]C$[179][177]"1"[167]1110:[143]*COW
1101 [153]"THE FARMER IS A LITTLE MAD ABOUT YOU"
1102 [153]" KILLING HIS COW, SO HE SHOT YOU, BYE...":[137]10700
1110 [139]C$[179][177]"2"[167]1120
1111 [153]"YOU PETTED A COW. BIG DEAL...."
1112 [153]" KEEP WALKING.....":[137]10300
1120 [153]"DON'T YOU KNOW BOLOGNA MAKES"
1121 [153]" MILK TASTE FUNNY. WALK ON...":[137]10300
1200 [139]C$[179][177]"1"[167]1210:[143]*FARMER
1201 [153]"SHOT THE FARMER EH? TO BAD....":[137]10700
1210 [139]C$[179][177]"2"[167]1220
1211 [153]"THE FARMER TELLS YOU TO GO PET"
1212 [153]" A ------ OH, WELL....":[137]10300
1220 [153]"YOU FEED THE FARMER, HE GAVE YOU"
1221 [153]" A HAM. ON YOU GO.....":[137]10300
1300 [139]C$[179][177]"1"[167]1310:[143]*MARTAIN
1301 [153]"YOU SHOT A MARTAIN, THATS OK"
1302 [153]" THE END OF THE WORLD WAS"
1303 [153]" NEAR ANYWAY.....":[137]10300
1310 [139]C$[179][177]"2"[167]1320
1311 [153]"PET THE MARTAIN,PET THE MARTAIN"
1312 [153]" YOU'LL PET ANYTHING....":[137]10300
1320 [153]"FEEDING A MARTAIN BOLOGNA SANDWICHES"
1321 [153]" IS AN ACT OF WAR. WAY TO GO DUMMY!!!":[137]10700
1400 [139]C$[179][177]"1"[167]1410:[143]*DOG
1401 [153]"GOOD THING YOU SHOT THAT DOG, IT'S ALREADY";
1402 [153]" BITTEN 3 OTHER PEOPLE AND A MARTAIN":[137]10300
1410 [139]C$[179][177]"2"[167]1420
1411 [153]"YOU PET A RABID-DOG. NOT TO SMART"
1412 [153]" ";NA$;". BETTER LUCK NEXT TIME.":[137]10700
1420 [153]"FEED THAT MAD DOG EH? BAD CHOICE.":[137]10700
1421 GJ,S,SFS,
1500 [139]C$[179][177]"1"[167]1510:[143]*CHICKEN
1501 [153]"YOU'A GOT'A CHICKEN SHOOT'N LICENCES?"
1502 [153]" NO, THATS A SHAME.....":[137]10700
1510 [139]C$[179][177]"2"[167]1520
1511 [153]"PETTING A CHICKEN. SOFT IN THE"
1512 [153]" HEAD TOO, GET LOST....":[137]10700
1520 [153]"FEEDING CHICKENS NOW. I DON'T WANT"
1521 [153]" TO HEAR ABOUT IT.....":[137]10300
1600 [139]C$[179][177]"1"[167]1610:[143]*RABBIT
1601 [153]"RABBIT STEW TONIGHT....":[137]10300
1610 [139]C$[179][177]"2"[167]1620
1611 [153]"RABBIT IS ENRAGED, BIT YOUR ARM OFF"
1612 [153]" RABBITS COME MEAN 'ROUND HERE.":[137]10700
1620 [153]"RABBIT ATE THE BOLOGNA SANDWICHES AND"
1621 [153]" YOUR GUN. SO SORRY....":[137]10700
1700 [139]C$[179][177]"1"[167]1710:[143]*MR.ROGERS
1701 [153]"MR. ROGERS IS ONLY WOUNDED, DO TO"
1702 [153]" BAD SHOT ON YOUR PART.....":[137]10300
1710 [139]C$[179][177]"2"[167]1720
1711 [153]"MR. ROGERS LIKES YOU TOO."
1712 [153]" YOU BOTH GO TO THE MAGIC KINGDON...":[137]10700
1720 [153]"MR. ROGERS THANKS YOU, BUT OFFERS"
1721 [153]" SOMETHING BETTER, WALK FAST....":[137]10300
1800 [139]C$[179][177]"1"[167]1810:[143]*CAMEL
1801 [153]"YOU SHOT A NEIGHBORING ZOO"
1802 [153]" CAMEL, NASTY BREAK.....":[137]10700
1810 [139]C$[179][177]"2"[167]1820
1811 [153]"CAMELS,MARTAINS,MONKEYS...."
1812 [153]" PET,PET,PET.....":[137]10300
1820 [153]"THE CAMEL HATES BOLOGNA, SPITS"
1821 [153]" IN YOUR FACE, TISK!TISK!":[137]10700
1900 [139]C$[179][177]"1"[167]1910:[143]*HIPPIE
1901 [153]"HEADLINE: HIPPIE SHOT BY HUNTER"
1902 [153]" 3 DRUG DEALERS OUT OF BUSINESS....."
1903 [153]" NEWS AT 6:00.....":[137]10300
1910 [139]C$[179][177]"2"[167]1920
1911 [153]"THE HIPPIE YOU PETTED GIVES YOU"
1912 [153]" A FLOWER, THATS NOT THE WAY"
1913 [153]" THE POLICE SEE IT.....":[137]10700
1920 [153]"YOU FEED A HIPPIE! NO HOPE IN"
1921 [153]" SIGHT FOR YOU.....":[137]10300
2000 [139]C$[179][177]"1"[167]2010:[143]*DRUNK
2001 [153]"SHOT A DRUNK, DIDN'T HURT HIM THOUGH..."
2002 [153]" HE WAS ALREADY DEAD...DRUNK.":[137]10300
2010 [139]C$[179][177]"2"[167]2020
2011 [153]"PETTED A DRUNK. HE PETTED YOUR"
2012 [153]" WALLET FOR $50.00":[137]10700
2020 [153]"FEED A DRUNK,FEED A MOUSE"
2021 [153]" YOU'LL FEED ANYTHING......":[137]10300
2100 [139]C$[179][177]"1"[167]2110:[143]*FORD PINTO
2101 [153]"SHOT A FORD PINTO, GAS TANK ERUPTS"
2102 [153]" YOU ARE SUED BY FORD FOR"
2103 [153]" INTRODUCING LEAD INTO FUEL TANK...":[137]10700
2110 [139]C$[179][177]"2"[167]2120
2111 [153]"THE FORD PINTO YOU PETTED RAN OVER"
2112 [153]" YOU. OH, WELL.....":[137]10700
2120 [153]"THE DRIVER OF THE PINTO YOU FEED"
2121 [153]" OFFERS YOU A RIDE, TOOK YOU"
2122 [153]" AHEAD 3 MILES....":MI[178]MI[170]3:[137]10300
2200 [139]C$[179][177]"1"[167]2210:[143]*ALLIGATOR
2201 [153]"SHOOTING ALLIGATORS NOW EH?"
2202 [153]" NOW WHAT ARE YOU GOING TO"
2203 [153]" DO, MAKE AIRCONDITIONED"
2204 [153]" SHOES?.......":[137]10300
2210 [139]C$[179][177]"2"[167]2220
2211 [153]"THE ALLIGATOR YOU TRYED TO PET"
2212 [153]" WANTS TO WRESTLE, YOU LOST....":[137]10700
2220 [153]"I SEE THAT YOU KNOW ALLIGATORS LIKE"
2221 [153]" BOLOGNA SANDWICHES. GOOD FOR YOU!":[137]10300
2300 [139]C$[179][177]"1"[167]2310:[143]*ORGAN GRINDER & MONKEY
2301 [153]"THE ORGAN GRINDER IS INRAGED AT YOU"
2302 [153]" SHOOTING HIS MONKEY, YOU ARE"
2303 [153]" NOW HOLDING THE LITTLE"
2304 [153]" TIN CUP............":[137]10700
2310 [139]C$[179][177]"2"[167]2320
2311 [153]"YOU PET THE ORGAN GRINDER'S MONKEY"
2312 [153]" GIVE HIM A DIME AND"
2313 [153]" CONTINUE YOUR WALK......":[137]10300
2320 [153]"YOU FEED THE ORGAN GRINDER AND HIS"
2321 [153]" MONKEY. NICE TOUCH.......":[137]10300
10300 [129] I[178]1[164]4000:[130]I:MI[178]MI[170]1
10310 [139] MI[177]19 [167] [137] 11000
10340 [153]"LOADYOU'RE CONTINUING YOUR WALK....."
10350 [153]" OH NO, NOT AGAIN! YEP, ANOTHER ANIMAL!"
10400 [153]" DO YOU WANT TO......."
10500 [153]" (1)SHOOT IT ?":[153]" (2)PET IT ?":[153]" (3)FEED IT ?"
10510 [153]
10600 [137]120
10700 [129]I[178]1[164]4000:[130]I:M[178]M[170]1
10710 [139] M[179]3[167]10340
10750 [153]"LOADTO BAD ";NA$;" THAT LAST CHOICE COST"
10760 [153]" YOU THE GAME AFTER ";MI;" MILES"
10780 [153]" BETTER LUCK NEXT TIME....."
10850 [153]:[153]"TRY AGAIN (Y/N)"
10900 [161] TRY$:[139] TRY$[178]""[167] 10900
10950 [139] TRY$[178]"Y"[167] 10
10990 [153]"LOADBYE":[128]
11000 [153]"LOADCONGRATULATIONS ";NA$;" YOU MADE IT THE"
11001 [153]" FULL 20 MILES. YOU HAD BETTER THAN"
11002 [153]" 50-1 ODDS AGAINST YOU.":[153]:[137]10850